home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex (VCA Interactive) / Virtual Sex (VCA Interactive).iso / mac / Virtual Sex 68K Mac / MAIN / 00046.ls < prev    next >
Encoding:
Text File  |  1995-06-22  |  453 b   |  31 lines
  1. global gMoodS, gStateS, gAnswersS, gWin
  2.  
  3. on startMovie
  4.   set gAnswersS to 1
  5. end
  6.  
  7. on PickMood
  8.   set gMoodS to random(3)
  9.   if gMoodS = 1 then
  10.     play frame "MoodBad"
  11.   else
  12.     nothing()
  13.   end if
  14.   if gMoodS = 2 then
  15.     play frame "MoodTired"
  16.   else
  17.     nothing()
  18.   end if
  19.   if gMoodS = 3 then
  20.     play frame "MoodHorny"
  21.   else
  22.     nothing()
  23.   end if
  24. end
  25.  
  26. on stateOfBeing
  27.   set gStateS to 3
  28.   set the castNum of sprite 13 to gStateS
  29.   updateStage()
  30. end
  31.